CLEAR MACROS
SET SYSMENU OFF
SET TALK OFF
SET NOTIFY OFF  && Desactiva los mensajes del sistema
SET ESCAPE ON
SET SAFETY OFF 
SET BELL OFF
SET DELETE ON
SET DATE TO BRITISH
SET CURSOR ON
SET EXCL OFF
SET AUTOSAVE ON
SET EXACT ON
*SET RESOURCE TO C:\ZADMIN\FOXUSER.DBF				&& HAY QUE ACTIVARLO YA EN EL EXE
SET MESSAGE TO ' '
*SET LIBRARY TO FOXTOOLS.FLL ADDITIVE
SET CENTURY ON
SET SAFETY OFF
SET FDOW TO 1		&& EL PRIMER DIA DE LA SEMANA ES LUNES
SET ASSERTS ON
SET RESOURCE OFF



xsosdir    = LEFT(SYS(16),RAT("\",SYS(16)))
PathDrive = LEFT(xsosdir, 2)
PathPrin  = STUFF(xsosdir, 1, 2, '')				
PathDBFS  = PathPrin+'DATOS\'
PathPant  = PathPrin+'SCREEN\'
PathPrgs  = PathPrin+'PRGS\'
PathMenus = PathPrin+'MENUS\'
PathBMP   = PathPrin + 'BMPS\'
PathREP   = PathPrin+'REPORT\'
PathUtil  = '\PRGUTIL\'
PathSist2  = PathDrive + PathPrin

PathSist  = PathDrive + PathPrin +';'+ PathPant +';'+ PathMenus  +';'+ ;
			PathPrgs +';'+ PathDBFS +';'+ PathBMP +';'+ PathREP +';'+ PathUtil       

LOCAL V_claveAct
DO FORM ACTIVACION TO V_claveAct

IF V_claveAct = 2970625
	SET PROC TO FUNCS
	PathDrive = "C:"
	=CreaAcceso()
RETURN
ELSE
	WAIT 'CLAVE ERRONEA.  EL SISTEMA NO PUEDE SER ACTIVADO' WINDOW
	CANCEL
ENDIF